home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Extra 1996 #2 / Amiga Plus CD - 1996 - No. 2 Extra.iso / clarissa1_1-demo / macros / form02.clssa < prev    next >
Text File  |  1995-01-20  |  2KB  |  56 lines
  1. /***********************************************************************
  2.   GADGET: "'Make LACE'" "3" AUTO TYP: "?"
  3.  
  4.   $DAT >>Form02.clssa<<       23.09.1992 - (C) ProDAD Holger Burkarth
  5.                               20.01.1995 - (C) ProDAD Michael Christoph
  6.  
  7.   Wandelt eine Anim, die kein Lace besitzt, in eine Lace-Anim um.
  8.   Die Lacekompensation hat einen großen Einfluß auf den Umwandlungs-
  9.   prozeß.
  10. ************************************************************************/
  11.  
  12. Options Results
  13. Address clariSSA
  14.  
  15.   FailAt 99
  16.   AltFail=RESULT
  17.  
  18.   DO FOREVER
  19.     Anims=""
  20.     GetAnimInfo Source_A
  21.     IF RESULT~='' THEN Anims=Anims||" Source_A "
  22.     GetAnimInfo Source_B
  23.     IF RESULT~='' THEN Anims=Anims||" Source_B "
  24.     GetAnimInfo Source_C
  25.     IF RESULT~='' THEN Anims=Anims||" Source_C "
  26.     GetAnimInfo Source_D
  27.     IF RESULT~='' THEN Anims=Anims||" Source_D "
  28.  
  29.     IF Anims~='' THEN DO
  30.       SelectAnim Anims "TITLE 'Wählen Sie die Source-Animtion@für die Umwandlung aus.' REQ"
  31.       IF rc~=0 THEN LEAVE
  32.       SelectAnim RESULT
  33.  
  34.       GetAnimInfo
  35.       PARSE VAR RESULT . "FORMAT" format "VIEWMODE" viewmode "FRAMES" Max .
  36.  
  37.       IF FIND(viewmode,"LACE")~=0 THEN DO
  38.         Message "'Animations-Format beinhaltet''bereits LACE !'"
  39.       END
  40.       ELSE DO
  41.         PARSE VAR format x y t
  42.         OpenAnim MASTER "FORMAT" x y*2 t "VIEWMODE" viewmode "LACE"
  43.         IF RC~=0 THEN LEAVE
  44.         Record AREA
  45.       END
  46.  
  47.     END
  48.     ELSE Message '"Keine Source-Animation vorhanden!"'
  49.  
  50.     LEAVE
  51.   END
  52.  
  53.   FailAt AltFail
  54. exit
  55.  
  56.